Data Base of the Video Yearbook 1995/Data Base of the Video Yearbook 1995 - Disc 1.iso/cosmos/monthw.dir/00060.ls

Text File | 1995-12-21 | 234 b | 10 lines

on searchdata month
  global mydatebase, monthdata, mydbno
  set monthdata to EMPTY
  repeat with n = 1 to mydbno
    if value(item 8 of line n of mydatebase) = month then
      put n & "," after monthdata
    end if
  end repeat
end